
{***********************************************************}
{                                                           }
{      Luxena Class Library                                 }
{                                                           }
{      Application Utilities                                }
{                                                           }
{      Copyright (c) 2001-2008 Luxena Software Company      }
{      http://www.luxena.com                                }
{      e-mail: support@luxena.com                           }
{                                                           }
{***********************************************************}

unit LXAppUtils;

{$I lx.inc}

interface

procedure LXApplicationHandleException(Sender: TObject);

implementation

uses
  {$IFDEF D6}Classes{$ELSE}Forms{$ENDIF};

procedure LXApplicationHandleException(Sender: TObject);
begin
{$IFDEF D6}
  if Assigned(ApplicationHandleException) then
    ApplicationHandleException(Sender);
{$ELSE}
  Application.HandleException(Sender);
{$ENDIF}
end;


end.